home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / src / dada.lha / dada / xpand.f < prev   
Encoding:
Text File  |  1995-02-26  |  211 b   |  13 lines
  1. [^[$$        32=\10=
  2.  |][%^      ]#]a:
  3.   [$0\>    ~\9>~
  4.    &]b:[  0\'0-
  5.     [$b;!][\10*
  6.      +^'0-]#]
  7.       c:[[$1_
  8.      =~][$10=
  9.     $[1ø,]?~[1ø
  10.    [$0=~  ][1ø,
  11.   1_+]#    %]?%^
  12.  ]#]x:      a;!c;
  13. !%^x;        !